Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Sistema/WinRescue/RescueW95.exe/RESCUE95.EXE/0/RCDATA/TFORM8/TFORM8.txt

Text File | 1999-03-31 | 31KB | 1,202 lines

object Form8: TForm8
  Left = 153
  Top = 92
  HelpContext = 6
  ActiveControl = PageControl1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WinRescue 95 Preferences'
  ClientHeight = 310
  ClientWidth = 427
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = Form8Activate
  PixelsPerInch = 96
  TextHeight = 13
  object Label11: TLabel
    Left = 16
    Top = 40
    Width = 97
    Height = 41
    Alignment = taCenter
    AutoSize = False
    Caption = 'To change a file'#39's status, click on it'#39's checkbox.'
    Transparent = True
    WordWrap = True
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 409
    Height = 265
    HelpContext = 6
    ActivePage = TabSheet7
    MultiLine = True
    TabOrder = 0
    object TabSheet1: TTabSheet
      HelpContext = 6
      Caption = 'Backup Preferences'
      object Label12: TLabel
        Left = 24
        Top = 12
        Width = 52
        Height = 13
        Caption = '&Backup to:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 280
        Top = 12
        Width = 49
        Height = 13
        AutoSize = False
        Caption = 'Dis&kette:'
        Enabled = False
        FocusControl = Edit1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 24
        Top = 75
        Width = 34
        Height = 13
        Caption = '&Target:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 24
        Top = 126
        Width = 73
        Height = 30
        AutoSize = False
        Caption = 'Which Registry to Backup'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label20: TLabel
        Left = 24
        Top = 44
        Width = 92
        Height = 13
        Caption = '&Compression Level:'
        FocusControl = ComboBox6
      end
      object Label30: TLabel
        Left = 24
        Top = 160
        Width = 361
        Height = 41
        AutoSize = False
        Caption =
          'If Current is checked and Win95 accesses the Registry while it i' +
          's being backed up, the backup will be bad.  The only way to know' +
          ' if it is bad is to restore to it.  So Previous is preferred, bu' +
          't it doesn'#39't include any changes made since Win95 was started.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object ComboBox5: TComboBox
        Left = 88
        Top = 8
        Width = 177
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Hard Drive (unlimited backups)'
          'Hard Drive (only one backup)'
          'Hard Drive (up to 3 backups)'
          'Hard Drive (up to 5 backups)'
          'Hard Drive (up to 10 backups)'
          'Diskette')
        ParentFont = False
        TabOrder = 0
        OnChange = PreferenceChange
      end
      object Edit1: TEdit
        Left = 328
        Top = 8
        Width = 57
        Height = 21
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = 'A'
      end
      object ComboBox6: TComboBox
        Left = 128
        Top = 40
        Width = 241
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Do Not Compress'
          'Low/Fast Compression'
          'Medium Compression'
          'High/Slow Compression'
          'Higher/Slower Compression'
          'Highest/Slowest Compression')
        ParentFont = False
        TabOrder = 2
      end
      object TargetEdit: TEdit
        Left = 72
        Top = 72
        Width = 161
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = 'TargetEdit'
      end
      object Button14: TButton
        Left = 233
        Top = 72
        Width = 17
        Height = 20
        Caption = '...'
        TabOrder = 4
        OnClick = Button14Click
      end
      object PreviousRadio1: TRadioButton
        Left = 112
        Top = 132
        Width = 105
        Height = 17
        Caption = '&Previous (safest)'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        TabStop = True
        OnClick = RadioGroup1Click
      end
      object CurrentRadio1: TRadioButton
        Left = 224
        Top = 132
        Width = 161
        Height = 17
        Caption = 'C&urrent (doesn'#39't always work)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = RadioGroup1Click
      end
      object RadioButton1: TCheckBox
        Left = 24
        Top = 102
        Width = 353
        Height = 17
        Caption = '&Delete all files on diskette before backing up to diskette.'
        State = cbChecked
        TabOrder = 7
        OnClick = PreferenceChange
      end
      object CheckBox1: TCheckBox
        Left = 264
        Top = 74
        Width = 129
        Height = 17
        Caption = 'Close After Backup'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = PreferenceChange
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Restore Preferences'
      object Label21: TLabel
        Left = 16
        Top = 8
        Width = 369
        Height = 25
        Alignment = taCenter
        AutoSize = False
        Caption =
          'The Options below determine which backups WinRescue will use to ' +
          'restore.'
        WordWrap = True
      end
      object Label18: TLabel
        Left = 216
        Top = 74
        Width = 169
        Height = 39
        AutoSize = False
        Caption =
          'Permanent backups made by WinRescue.  These include all specifie' +
          'd files, folders, and MultiFile groups.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label28: TLabel
        Left = 184
        Top = 123
        Width = 201
        Height = 17
        AutoSize = False
        Caption = 'Registry files from the last WinRescue backup.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 160
        Top = 146
        Width = 225
        Height = 33
        AutoSize = False
        Caption =
          'All files, folders, and MultiFile groups backed up on diskette. ' +
          ' See Backup Preferences - "Backup to:" to backup to diskette.  M' +
          'any diskettes may be used.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label29: TLabel
        Left = 176
        Top = 189
        Width = 209
        Height = 11
        AutoSize = False
        Caption = 'Returns Windows back to it'#39's original settings.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 192
        Top = 35
        Width = 193
        Height = 38
        AutoSize = False
        Caption =
          'Registry files copied when Win95 starts.  This is probably the m' +
          'ost recent backup, but it is often corupt.  It is recommended to' +
          ' try this first.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Backup: TRadioButton
        Left = 24
        Top = 72
        Width = 185
        Height = 15
        Caption = 'Restore &WinRescue Backup'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = PreferenceChange
      end
      object ComboBox4: TComboBox
        Left = 40
        Top = 90
        Width = 169
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Restore Most Recent Backup')
        ParentFont = False
        TabOrder = 1
      end
      object Spare: TRadioButton
        Left = 24
        Top = 120
        Width = 145
        Height = 17
        Caption = 'Restore Sp&are Registry'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = PreferenceChange
      end
      object Diskette: TRadioButton
        Left = 24
        Top = 144
        Width = 137
        Height = 15
        Caption = 'Restore from &Diskette'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = PreferenceChange
      end
      object Original: TRadioButton
        Left = 24
        Top = 186
        Width = 145
        Height = 17
        Caption = 'Restore &Original Registry'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = PreferenceChange
      end
      object Previous: TRadioButton
        Left = 24
        Top = 32
        Width = 169
        Height = 17
        Caption = 'Restore &Previous Registry'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        TabStop = True
        OnClick = PreferenceChange
      end
    end
    object TabSheet2: TTabSheet
      HelpContext = 46
      Caption = 'Directories'
      object Button4: TTransparentButton
        Left = 25
        Top = 20
        Width = 62
        Height = 28
        Caption = '&Root'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = DDirClick
      end
      object Button5: TTransparentButton
        Left = 25
        Top = 58
        Width = 62
        Height = 28
        Caption = '&Startup'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = DDirClick
      end
      object Button8: TTransparentButton
        Left = 25
        Top = 96
        Width = 62
        Height = 28
        Caption = '&Windows'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = DDirClick
      end
      object Button6: TTransparentButton
        Left = 25
        Top = 134
        Width = 62
        Height = 28
        Caption = 'S&ystem'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = DDirClick
      end
      object Button7: TTransparentButton
        Left = 25
        Top = 172
        Width = 62
        Height = 28
        Caption = '&User'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = DDirClick
      end
      object Label33: TLabel
        Left = 120
        Top = 32
        Width = 254
        Height = 153
        Alignment = taCenter
        AutoSize = False
        Caption =
          'These Default Directories should be correct.  They do not need t' +
          'o be changed unless you have a special setup, like, multiple use' +
          'rs or foreign version.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 45
      Caption = 'Backup Manager'
      object Label3: TLabel
        Left = 120
        Top = 16
        Width = 145
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '&List of All Backup Sets'
        FocusControl = ListView1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ListView1: TListView
        Left = 24
        Top = 32
        Width = 353
        Height = 145
        Columns = <
          item
            Caption = 'Backup Set'
            Width = 75
          end
          item
            Caption = 'Full Path'
            Width = 274
            WidthType = (
              -2)
          end>
        OnChange = ListView1Change
        OnEdited = ListViewEdited
        OnMouseDown = ListView1MouseDown
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Button9: TButton
        Left = 264
        Top = 175
        Width = 113
        Height = 18
        Caption = '&Delete'
        TabOrder = 2
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 24
        Top = 175
        Width = 121
        Height = 18
        Caption = '&Rename'
        TabOrder = 1
        OnClick = Button10Click
      end
      object Button18: TButton
        Left = 145
        Top = 175
        Width = 119
        Height = 18
        Caption = '&Add'
        TabOrder = 3
        OnClick = Button18Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Files'
      object Shape2: TShape
        Left = 8
        Top = 32
        Width = 113
        Height = 153
        Brush.Color = clGray
      end
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 385
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Files to Backup and Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 32
        Top = 88
        Width = 54
        Height = 13
        Caption = 'Do Nothing'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label15: TLabel
        Left = 32
        Top = 104
        Width = 61
        Height = 13
        Caption = 'Backup Only'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label16: TLabel
        Left = 32
        Top = 120
        Width = 73
        Height = 25
        AutoSize = False
        Caption = 'Backup and Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Image1: TImage
        Left = 16
        Top = 120
        Width = 17
        Height = 17
        Picture.Data = {<image001.bmp>}
      end
      object Image3: TImage
        Left = 16
        Top = 104
        Width = 17
        Height = 17
        Picture.Data = {<image002.bmp>}
      end
      object Image2: TImage
        Left = 16
        Top = 88
        Width = 17
        Height = 17
        Picture.Data = {<image003.bmp>}
      end
      object Label17: TLabel
        Left = 16
        Top = 152
        Width = 97
        Height = 33
        Alignment = taCenter
        AutoSize = False
        Caption = 'Click on Add to add a file to the List.'
        Transparent = True
        WordWrap = True
      end
      object Label13: TLabel
        Left = 16
        Top = 40
        Width = 97
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption = 'To change a file'#39's status, click on it'#39's checkbox.'
        Transparent = True
        WordWrap = True
      end
      object FileList1: TCheckListBox
        Left = 128
        Top = 24
        Width = 265
        Height = 161
        AllowGrayed = True
        ItemHeight = 13
        Items.Strings = (
          'Registry'
          'Initiation Files'
          'Start Menu'
          'Desktop'
          'Favorites'
          'Recent')
        TabOrder = 0
        OnClick = FileList1Click
        OnMouseDown = FileList1MouseDown
      end
      object Button16: TButton
        Left = 128
        Top = 184
        Width = 133
        Height = 17
        Caption = '&Add'
        TabOrder = 1
        OnClick = Button16Click
      end
      object Button17: TButton
        Left = 261
        Top = 184
        Width = 132
        Height = 17
        Caption = '&Delete'
        Enabled = False
        TabOrder = 2
        OnClick = Button17Click
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'MultiFiles'
      object Label8: TLabel
        Left = 16
        Top = 6
        Width = 92
        Height = 13
        Caption = 'MultiFile Groups'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 112
        Top = 6
        Width = 269
        Height = 13
        Caption = '- for Backing up and Restoring Directories and File Types'
      end
      object Shape3: TShape
        Left = 8
        Top = 32
        Width = 113
        Height = 153
        Brush.Color = clGray
      end
      object Label22: TLabel
        Left = 16
        Top = 40
        Width = 97
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption = 'To change a group'#39's status, click on it'#39's checkbox.'
        Transparent = True
        WordWrap = True
      end
      object Label23: TLabel
        Left = 32
        Top = 88
        Width = 54
        Height = 13
        Caption = 'Do Nothing'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label24: TLabel
        Left = 32
        Top = 104
        Width = 61
        Height = 13
        Caption = 'Backup Only'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label25: TLabel
        Left = 32
        Top = 120
        Width = 73
        Height = 25
        AutoSize = False
        Caption = 'Backup and Restore'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label26: TLabel
        Left = 16
        Top = 152
        Width = 97
        Height = 33
        Alignment = taCenter
        AutoSize = False
        Caption = 'Click on Add to add a group to the List.'
        Transparent = True
        WordWrap = True
      end
      object Image7: TImage
        Left = 16
        Top = 120
        Width = 17
        Height = 17
        Picture.Data = {<image004.bmp>}
      end
      object Image8: TImage
        Left = 16
        Top = 104
        Width = 17
        Height = 17
        Picture.Data = {<image005.bmp>}
      end
      object Image9: TImage
        Left = 16
        Top = 88
        Width = 17
        Height = 17
        Picture.Data = {<image006.bmp>}
      end
      object MultiFilesList: TCheckListBox
        Left = 128
        Top = 24
        Width = 265
        Height = 161
        AllowGrayed = True
        ItemHeight = 13
        TabOrder = 0
        OnClick = MultiFilesListClick
        OnMouseDown = MultiFilesListMouseDown
      end
      object Button11: TButton
        Left = 128
        Top = 184
        Width = 88
        Height = 17
        Caption = '&Add'
        TabOrder = 1
        OnClick = Button11Click
      end
      object Button12: TButton
        Left = 304
        Top = 184
        Width = 89
        Height = 17
        Caption = '&Delete'
        Enabled = False
        TabOrder = 2
        OnClick = Button12Click
      end
      object Button15: TButton
        Left = 216
        Top = 184
        Width = 89
        Height = 17
        Caption = '&Edit'
        Enabled = False
        TabOrder = 3
        OnClick = Button15Click
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'Automation'
      object Label31: TLabel
        Left = 16
        Top = 8
        Width = 369
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Automatic Functions'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 32
        Top = 42
        Width = 161
        Height = 13
        AutoSize = False
        Caption = 'S&tart WinRescue 95 and Wait.'
        FocusControl = ComboBox1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 32
        Top = 66
        Width = 161
        Height = 13
        AutoSize = False
        Caption = 'Automatically perform B&ackup.'
        FocusControl = ComboBox2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 32
        Top = 90
        Width = 161
        Height = 13
        AutoSize = False
        Caption = 'Automatically perform Reg&Pack.'
        FocusControl = ComboBox3
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 24
        Top = 120
        Width = 337
        Height = 41
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Win98 Task Scheduler - runs WinRescue at specified time.  Otherw' +
          'ise Functions are run when Windows starts.  To use the Task Sche' +
          'duler one of the Automatic Functions must be set to Use Schedule' +
          'r.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object ComboBox1: TComboBox
        Left = 208
        Top = 38
        Width = 153
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Daily'
          'Weekly'
          'Bi-Weekly'
          'Monthly'
          'Use Scheduler'
          'Do Not Perform')
        ParentFont = False
        TabOrder = 0
        OnChange = FreqClick
      end
      object ComboBox2: TComboBox
        Left = 208
        Top = 62
        Width = 153
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Daily'
          'Weekly'
          'Bi-Weekly'
          'Monthly'
          'Use Scheduler'
          'Do Not Perform')
        ParentFont = False
        TabOrder = 1
        OnChange = FreqClick
      end
      object ComboBox3: TComboBox
        Left = 208
        Top = 86
        Width = 153
        Height = 21
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          'Daily'
          'Weekly'
          'Bi-Weekly'
          'Monthly'
          'Use Scheduler'
          'Do Not Perform')
        ParentFont = False
        TabOrder = 2
        OnChange = FreqClick
      end
      object Button13: TButton
        Left = 24
        Top = 176
        Width = 161
        Height = 25
        Caption = 'Setup the Task Scheduler'
        TabOrder = 3
        OnClick = Button13Click
      end
      object Button21: TButton
        Left = 200
        Top = 176
        Width = 161
        Height = 25
        Caption = 'Remove WinRescue'
        TabOrder = 4
        OnClick = Button21Click
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Advanced'
      object Label34: TLabel
        Left = 16
        Top = 16
        Width = 363
        Height = 41
        AutoSize = False
        Caption =
          '   These options are here in case your computer setup is not com' +
          'patible with some of WinRescue functions.  These options allow t' +
          'hese functions to be accomplished in other ways.'
        WordWrap = True
      end
      object Label35: TLabel
        Left = 200
        Top = 92
        Width = 185
        Height = 69
        AutoSize = False
        Caption =
          '   If the computer hangs with a blank screen and a blinking curs' +
          'or when restarting Windows after RegPack, try checking "autoexec' +
          '.bat".'
        WordWrap = True
      end
      object RadioGroup2: TRadioGroup
        Left = 16
        Top = 88
        Width = 169
        Height = 57
        Caption = 'Windows Restart'
        ItemIndex = 0
        Items.Strings = (
          'startwin.pif'
          'autoexec.bat')
        TabOrder = 0
      end
    end
  end
  object Button1: TButton
    Left = 184
    Top = 280
    Width = 73
    Height = 20
    Caption = 'O K'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 264
    Top = 280
    Width = 73
    Height = 20
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 344
    Top = 280
    Width = 73
    Height = 20
    Caption = '&Apply'
    Enabled = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 104
    Top = 280
    object Dir6: TMenuItem
      Caption = 'Dir'
      HelpContext = 810
      Hint = 'The Current Root Directory'
    end
    object Browse6: TMenuItem
      Caption = '&Browse'
      HelpContext = 820
      Hint = 'Click here to assign a different root directory'
      OnClick = BrowseClick
    end
    object N7: TMenuItem
      Caption = '-'
      HelpContext = 830
    end
    object DefaultDirectory6: TMenuItem
      Caption = '&Default Directory'
      HelpContext = 840
      Hint = 'Change back to the default root directory.'
      OnClick = DefaultDirectoryClick
    end
  end
  object DirectoryDialog1: TDirectoryDialog
    Left = 64
    Top = 280
  end
end